﻿Imports System.Net
Imports System.Runtime.Serialization

<Serializable>
Friend Class ApiException
    Inherits Exception

    Private statusCode As HttpStatusCode
    Private v As String

    Public Sub New()
    End Sub

    Public Sub New(message As String)
        MyBase.New(message)
    End Sub

    Public Sub New(statusCode As HttpStatusCode, v As String)
        Me.statusCode = statusCode
        Me.v = v
    End Sub

    Public Sub New(message As String, innerException As Exception)
        MyBase.New(message, innerException)
    End Sub

    Protected Sub New(info As SerializationInfo, context As StreamingContext)
        MyBase.New(info, context)
    End Sub
End Class
